﻿Public Class ConfigurationClass

    Private _configuredType As String
    Private _packagePath As String
    Private _configuredValue As String
    Private _configuredValueType As String

    Public Property ConfiguredType() As String
        Get
            Return _configuredType
        End Get
        Set(ByVal value As String)
            _configuredType = value
        End Set
    End Property

    Public Property PackagePath() As String
        Get
            Return _packagePath
        End Get
        Set(ByVal value As String)
            _packagePath = value
        End Set
    End Property

    Public Property ConfiguredValue() As String
        Get
            If _packagePath = "Boolean" Then
                If _configuredValue = 0 Then
                    Return "False"
                Else
                    Return "True"
                End If
            Else
                Return _configuredValue
            End If
        End Get
        Set(ByVal value As String)
            _configuredValue = value
        End Set
    End Property

    Public Property ConfiguredValueType() As String
        Get
            Return _configuredValueType
        End Get
        Set(ByVal value As String)
            _configuredValueType = value
        End Set
    End Property


    Public Sub New()
        '
    End Sub

    Public Sub New(ByVal configuredType As String, _
                   ByVal packagePath As String, _
                   ByVal configuredValue As String, _
                   ByVal configuredValueType As String)
        '
        _configuredType = configuredType
        _packagePath = packagePath
        _configuredValue = configuredValue
        _configuredValueType = configuredValueType
    End Sub

End Class
